﻿Module Module1
  Sub Main()
    Dim persone(1) As Persona
    persone(0) = New Uomo
    persone(1) = New Donna
    If TypeOf (persone(0)) Is Uomo Then
      Console.WriteLine("uomo = Uomo")
    End If
    If TypeOf (persone(1)) Is Donna Then
      Console.WriteLine("donna = Donna")
    End If
    If TypeOf (persone(0)) Is Persona Then
      Console.WriteLine("uomo = Persona")
    End If
    If TypeOf (persone(1)) Is Persona Then
      Console.WriteLine("donna = Persona")
    End If
    Console.ReadLine()
  End Sub
End Module
